home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 301-325 / 325 / rexxhostlib / testdemo.rexx < prev   
OS/2 REXX Batch file  |  1995-03-14  |  517b  |  25 lines
  1. /* A test program for the fancy demo.  To run, issue  */
  2. /* the command testdemo from fancy's command window   */
  3. arg code
  4.  
  5. address 'FancyDemo'
  6.  
  7. 'good'   /* a command */
  8. say 'rc=' rc 'result=' result
  9.  
  10. 'BAD'    /* another command */
  11. say 'rc=' rc 'result=' result
  12.  
  13. /* now request a result string (an extension in ARexx) */
  14. options results
  15. say 'Requesting results'
  16.  
  17. 'good'   /* the good command again */
  18. say 'rc=' rc 'result=' result
  19.  
  20.  
  21. /* try it with three arguments. */
  22. good job man
  23.  
  24. exit 0   /* return the argument */
  25.